home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
alph100p.zip
/
CRTDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-11-02
|
1KB
|
54 lines
{$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
{$M 1024,0,0}
program CrtDemo;
uses CRT;
Type
Proc = Procedure;
Procedure Plain; Far;
begin
end;
Procedure SPage(s: string; P: Proc);
var L,n,m:byte;
begin
Textbackground(black);
textcolor(yellow);
clrscr;
gotoxy(33,1);write('CRT COLOR DEMO');
gotoxy(35,3);write(S);
gotoxy(15,4);write('Background');
gotoxy(55,4);write('Foreground');
for n:=15 downto 0 do
begin
TextBackground(n);
TextColor(n);
P;
gotoxy(1,n+5);
for m:=1 to 40 do write(#32);
for m:=1 to 40 do write(#219);
inc(l)
end;
Sound(333);delay(200);nosound;
delay(5000);
end;
begin
DirectVideo:=FALSE;
spage('Plain CRT',Plain);
spage('HighVideo',HighVideo);
spage('LowVideo', LowVideo);
Assign(OutPut,'');Rewrite(OutPut); { NOTICE HOW REDIRECTION TURNS OFF COLOR }
spage('Redirected Plain CRT',Plain);
spage('Redirected HighVideo',HighVideo);
spage('Redirected LowVideo', LowVideo);
normvideo;
clrscr;
halt(0);
end.